home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Online / IBScripts / install.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-01-22  |  3.3 KB  |  111 lines
  1. /* Install.rexx
  2.  
  3. */
  4. OPTIONS RESULTS
  5. OPTIONS FAILAT 10
  6.  
  7. say show('Libs')
  8. addlib("rexxreqtools.library", 0, -30, 0)
  9. lib= show('Libs',"rexxreqtools.library")
  10.  
  11. open('ibstart','CON:60/100/350/80/IBStart/cds')
  12.  
  13. IF EXISTS('RAM:ENV/IBS') THEN DO
  14.     call writeln 'ibstart','Could not find a IBrowse assign!!!'
  15.     call writeln 'ibstart','Please enter the path to the IBrowse directory'
  16.     call writeln 'ibstart','(Ex: "SYS:Surf/IBrowse" )'
  17.     DO FOREVER
  18.  
  19.         open('input','ibstart','R')
  20.         IF lib=0 THEN path=readln('ibstart')
  21.         IF lib=1 THEN DO
  22.             
  23.  
  24.             address 'COMMAND'
  25.              wait 2
  26.             path = rtfilerequest('SYS:', , "Pick IBrowse directory",,"rtfi_flags = freqf_nofiles")
  27.                 if rtresult==0 then exit
  28.  
  29.             END
  30.         
  31.         say path
  32.         all=path||'/ibrowse'
  33.         If exists(all) then break
  34.         call writeln 'ibstart','Could not find IBrowse in'
  35.         call writeln 'ibstart',path
  36.         call writeln 'ibstart','Please enter the path to the IBrowse directory'
  37.     END
  38. say hej
  39.     ADDRESS 'COMMAND'
  40.     IF ~EXISTS('s:userstartup.preIBs') THEN 'copy S:user-startup S:user-startup.preIBs'
  41.     ok=OPEN('user','S:user-startup','A')
  42.     ok=WRITELN('user','assign IBROWSE: '||path||'   ;Added by IBrowseScripts')
  43.     'assign IBROWSE:' path 
  44.  
  45. END
  46.  
  47.  
  48.  
  49. cls
  50. ADDRESS 'COMMAND'
  51. IF ~EXISTS('RAM:ENV/IBS') THEN call writeln 'ibstart','Ibrowse assign found. Skipped that part'
  52. IF ~EXISTS('IBrowse:REXX') THEN DO
  53.     call writeln 'ibstart','Ibrowse/REXX  not found. Making REXX Directory'
  54.     'Makedir IBrowse:REXX'
  55. END
  56. call writeln 'ibstart','Now copying files to IBrowse:Rexx'
  57. 'Copy >CON: rexx/#? Ibrowse:rexx/'
  58.  
  59. IF ~lib THEN DO
  60. call writeln 'ibstart','Could not find rexxreqtools.library!!!'
  61.     call writeln 'ibstart','See guide.html for a Url'
  62.     call writeln 'ibstart','(Press "Enter" to continue )'
  63.     open('input','ibstart','R')
  64.     ok=readln('ibstart')
  65. END
  66. IF ~EXISTS("sys:rexxc/RX") THEN DO
  67. call writeln 'ibstart','Could not find Sys:rexxc/RX'
  68.     call writeln 'ibstart','Reinstall from your workbench-diskettes'
  69.     call writeln 'ibstart','(Press "Enter" to continue )'
  70.     open('input','ibstart','R')
  71.     ok=readln('ibstart')
  72. END
  73. IF EXISTS('RAM:ENV/MIS') THEN DO
  74.     call writeln 'ibstart','Could not find a Miami assign!!!'
  75.     call writeln 'ibstart','Please enter the path to the Miami directory'
  76.     call writeln 'ibstart','(Ex: "SYS:Surf/Miami" )'
  77.     call writeln 'ibstart','("Enter" to skip this part. )'
  78.  
  79.     DO FOREVER
  80.  
  81.         IF lib=0 THEN path=readln('ibstart')
  82.         IF lib=1 THEN path = rtfilerequest('SYS:', , "Pick Miami directory",,"rtfi_flags = freqf_nofiles")
  83.  
  84.         IF path='' THEN BREAK
  85.         say path
  86.         all=path||'/miami'
  87.         If exists(all) then break
  88.         call writeln 'ibstart','Could not find Miami in'
  89.         call writeln 'ibstart',path
  90.         call writeln 'ibstart','Please enter the path to the Miami directory'
  91.     END
  92.  
  93.     IF path~='' THEN DO
  94.         ADDRESS 'COMMAND'
  95.         IF ~EXISTS('s:userstartup.preIBs') THEN 'copy S:user-startup S:user-startup.preIBs'
  96.         ok=OPEN('user','S:user-startup','A')
  97.         ok=WRITELN('user','assign Miami: '||path||'   ;Added by IBrowseScripts')
  98.         'assign Miami:' path 
  99.     END
  100.  
  101. END
  102. IF ~EXISTS('RAM:ENV/MIS') THEN call writeln 'ibstart','Miami assign found. Skipped that part'
  103. call writeln 'ibstart','Now copying file to Miami:'
  104. 'Copy >CON: IBrowse:rexx/miamistartyam.rexx Miami:'
  105.  
  106. call writeln 'ibstart','All done! Now edit your IBrowse/Yam/Miami Settings'
  107. call writeln 'ibstart','as shown by guide.html. '
  108. call writeln 'ibstart','( Just drag`n-drop it on IBrowse )'
  109. 'wait 10'
  110.  
  111.